---
title: "Example Outputs"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: scroll
source_code: embed
runtime: shiny
---
```{r setup, include=FALSE}
library(flexdashboard)
library(niksmacrohelpers)
```
Column
-----------------------------------------------------------------------
### Chart A
```{r}
```
Column {.tabset}
-----------------------------------------------------------------------
### Chart B
```{r userinputs1, echo=TRUE}
test <- shiny::selectInput("name_select",
label = "Select LGA",
choices = c("Test 1" = "test1",
"Test 2" = "test2"), selected = "test1")
test
```
### Chart C
```{r chart3, echo=TRUE}
tt <- test$children %>%
purrr:::pluck(2) %>%
purrr::pluck("children") %>%
purrr::pluck(1) %>%
as.character() %>%
stringr::str_extract(
"selected>.*<"
) %>%
stringr::str_remove("selected")%>%
stringr::str_remove(">")%>%
stringr::str_remove("<")
tt
```